home *** CD-ROM | disk | FTP | other *** search
/ Aventura Visual - História Do Mundo / Aventura Visual - História do Mundo.img / dksetup / dksetup.mst < prev    next >
Text File  |  1996-11-04  |  31KB  |  855 lines
  1. ''$DEFINE DEBUG
  2. '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  3. '    HISTORY (UK)
  4. '
  5. '
  6. '   VERSION
  7. '   -------
  8. CONST STR_VERSION = "V 2.0.22"
  9. '
  10. '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  11. 'Change History
  12. '--------------
  13. '
  14. '03/04/96 Removed the path in the device=dva.386 entry which is put into system.ini.
  15. '         The Code is in UpdateWing in Dkgen.inc. This stops a crash when installing
  16. '         Windows then our product then Office.
  17. '22/03/96 Change WITH_SAMPLER_NOCM to WITH_FULL_SAMPLER. Installs the sampler to
  18. '         \DKMM\SAMPLER. The sampler files go in the [SAMPBIN] section in Setup.inf
  19. '27/02/96 Installs Quick Time for Windows when INST_QTW is defined.
  20. '16/02/96 Made the cursor 'Busy' while creating the program group/items.
  21. '14/02/96 Add the Sampler Icon name to the MMAPP.ini when using WITH_SAMPLER_NOCOM,
  22. '         so that uninstall can delete the Sampler Icon.
  23. '12/02/96 Added option to bundle sampler WITHOUT the Custom Menu.
  24. '25/01/96 Add WITH_ORDERING_INFO and MUSEUM_TITLE defines.
  25. '22/01/96 Fix the dialogs in the TestSystem function in Dkgen.inc.
  26. '15/12/95 Fix the Set Restart Directory problem when installing Win32s
  27. '14/12/95 Only delete files from the previous install if it was in a
  28. '         different directory. Otherwise it deletes the files just installed!
  29. '05/12/95 Reset the default install path when selecting back from the custom
  30. '         install dialog box and clear the copy list.
  31. '04/12/95 Move the mmapp.ini entry updates after the install.
  32. '31/11/95 Check the msacm.ini to make sure the audio compression is enabled.
  33. '29/11/95 Add the line in DKCODE\VERSION.INI to the main ini file. This is only
  34. '         used by the sampler3 product at the moment.
  35. '21/11/95 Can now handle a product + sampler3 bundle disc.
  36. '13/11/95 Add the Setup Version number to the About dialog box in the Setup.
  37. '08/11/95 Use the test for cirrus logic dirvers all of the time, not just
  38. '         when bundled with a sampler.
  39. '03/11/95 Cater for Win32s install and general tidy up of this script file.
  40. '         Unfortunately still need to use comments to select / deselect
  41. '         the specific font code parts.
  42. '18/08/95 rc and this have no min install. Changed dlg boxes custom,
  43. '         custom help and speed
  44. '18/08/95 Register notes most recent lang used
  45. '11/08/95 Register created using inf file
  46. '26/07/95 Uninstall code added
  47. '07/07/95 Correct dkgen.inc so unregisters use of ctl3d
  48. '04/07/95 Make sure files in bin section of inf file 'always' overwrite
  49. '28/07/95 Ini file not created for minimum install, uses file provided in dkcode
  50. '27/06/95 Test for directory names max 8 chars
  51. '26/06/95 For minimum install, ini file is now not installed
  52. '19/06/95 Moved test for cirrus drivers to mst file as only applies to sampler
  53. '05/06/95 Fonts installed on users machine
  54. '01/06/95 No choice about adding icon to prog man, altered dkgen.inc & rc file
  55. '            (custom, customhelp & speed dlg boxes need changing)
  56. '22/05/95 Code for bundling with sampler
  57. '22/05/95 Large readme need Write (will need to change dlg box in rc file)
  58. '15/05/95 No warning that directory does not exist
  59. '03/05/95 Ini file put in executable directory rather than Windows dir to stop
  60. '            clash with foreign products with same name files
  61. '
  62. '------------------------------------------------------------------------------
  63. '******************************************************************************
  64. '
  65. '   START OF CHANGE SECTION
  66. '
  67. '   The only changes that need to be made to this file for every setup are in
  68. '   this change section between the two lines of ******'s.
  69. '   EXCEPTION:  When using fonts. See note below.
  70.  
  71.  
  72. ' Defines for setup flow control. Comment out if not needed.
  73. '$DEFINE SCRUNGED               '   Scrunged, i.e. using the .png
  74. '$DEFINE UNINSTALL              '   With Uninstall
  75. '$DEFINE USE_WING               '   Install WinG drivers
  76. ''$DEFINE WITH_ORDERING_INFO     '   Installs the Ordering information file
  77. ''$DEFINE MUSEUM_TITLE           '   The title is part of the Museum series
  78. ''$DEFINE WITH_SAMPLER           '   Bundled with a Sampler prog. Custmenu.exe is included.
  79. ''$DEFINE WITH_FULL_SAMPLER      '   Bundled with the full Sampler prog. Goes in \DKMM\SAMPLER
  80. ''$DEFINE WIN32S_REQUIRED        '   Win32s is required for this product (or the sampler) to work.
  81. ''$DEFINE INST_QTW               '  Install QuickTime for Windows.
  82.  
  83.  
  84. 'This is the only bit that has to be changed by hand throughout if used.
  85. 'IF USING SPECIFIC FONTS
  86. 'DECLARE FUNCTION InstallFont LIB "dkutils.dll" (szFont$) AS INTEGER
  87. 'DECLARE SUB UpdateFonts()
  88.  
  89.  
  90. '$IFDEF UNINSTALL
  91.     ' Update for product language
  92.     CONST STR_UNINSTALL = "GLOBO Desinstalaτπo"
  93.     CONST LANG_DLL = "Unlang.ptg"     'will use as default if can't find dll to match window lang
  94.  
  95. '$ENDIF
  96.  
  97. ' Product details
  98. CONST APPLICATION_INI_FILE = "history.ini"
  99. CONST APPLICATION_EXE_FILE = "history.exe"
  100. CONST APPLICATION_PENGE_FILE = "history.png"
  101.  
  102. CONST INI_FILE_SOURCE = "AppPath" ' OR  "WinPath"
  103. CONST EDITOR_EXE =  "write.exe " 'OR "notepad.exe "
  104.  
  105. ' Language dependant strings
  106. CONST APPLICATION_README_FILE = "Leia-me.wri"
  107. CONST STR_README = "Leia-me da Hist≤ria do Mundo"
  108. CONST ORDER_FILE = "order.wri"
  109. CONST STR_ORDER = "Ordering Information"
  110. CONST STR_MSGCAPTION = "Programa de Configuraτπo da Hist≤ria do Mundo"
  111. CONST STR_PRODUCTNAME = "Hist≤ria do Mundo"
  112. CONST DEFAULT_INSTALL_PATH = "\GLOBO\HISTORIA"
  113.  
  114. '
  115. '   END OF CHANGE SECTION
  116. '******************************************************************************
  117. '------------------------------------------------------------------------------
  118. '
  119. '$IFDEF WITH_SAMPLER or WITH_FULL_SAMPLER
  120.     ' Define sampler details
  121.     CONST SAMPLER_PATH = "SAMPLER"
  122.     CONST APPLICATION_MENU_FILE = "custmenu.exe"
  123.     CONST SAMPLER_EXE_FILE = "sampler.exe"
  124.     CONST SAMPLER_INI_FILE = "sampler.ini"
  125.     CONST STR_SAMPLER = "Dorling Kindersley Sampler"
  126.     CONST SAMPLER_BINARIES_SECTION_NAME = "SAMPBIN"
  127. '$ENDIF
  128.  
  129. '$INCLUDE 'dkgen.inc'
  130.  
  131. '$IFDEF WIN32S_REQUIRED
  132.     ' Include extra Win32s specific routines
  133.     '$INCLUDE 'win32s.inc'
  134. '$ENDIF
  135.  
  136. DECLARE SUB CreateReg()
  137. DECLARE SUB Install()
  138. DECLARE SUB AddFilesToCopyList(szInstallType$)
  139. DECLARE FUNCTION IsCDROMDrive LIB "dkutils.dll" (wDrive%) As INTEGER
  140. DECLARE FUNCTION DeleteFiles LIB "dkutils.dll" (szDiffPath$, szProdName$, szDKREgIni$) AS INTEGER
  141. DECLARE FUNCTION DeleteDir LIB "dkutils.dll" (szDiffPath$) AS INTEGER
  142. DECLARE FUNCTION DeleteSection LIB "dkutils.dll" (szProdName$, szDKREgIni$) AS INTEGER
  143. DECLARE FUNCTION TestForCirrus LIB "dkutils.dll" () As INTEGER
  144. DECLARE FUNCTION GetCdVolumeLabel LIB "dkutils.dll" ( szCdVolumeLabel$, szCdDrive$ ) As INTEGER
  145.  
  146.  
  147. Init:
  148.    Initialise STR_PRODUCTNAME, DEFAULT_INSTALL_PATH, STR_MSGCAPTION
  149.  
  150. WelcomeDlg:
  151.     if Welcome() = NAV_BACK then
  152.         ' Don nothing - cant go back
  153.     end if
  154.  
  155.     if TestSystem() = NAV_BACK then
  156.         goto WelcomeDlg
  157.     end if
  158.  
  159.  
  160. '+++
  161. '$IFDEF WIN32S_REQUIRED
  162.  
  163.     if bInstalledWin32s = 0 then
  164.         goto InstallWin32s
  165.     endif
  166.  
  167. FinishedWin32s:
  168.  
  169. '$ENDIF
  170. '---
  171.  
  172. '+++
  173. '$IFDEF INST_QTW
  174.  
  175.     ret% = InstallQTW()     ' Install QuickTime for Windows
  176.  
  177. '$ENDIF
  178. '---
  179.  
  180.     'TestCirrus:
  181.     if TestForCirrus() = 1 then
  182.         dButton = DoMsgBox(STR_CIRRUS, szMsgCaption$, MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
  183.     end if
  184.  
  185.  
  186.     '   Dont update ADPCM on Win 95
  187.     IF GetWindowsMajorVersion * 100 + GetWindowsMinorVersion < 350 THEN
  188.         if UpdateADPCMDrivers() = NAV_BACK then
  189.             goto WelcomeDlg
  190.         end if
  191.     END IF
  192.  
  193.  
  194. ExpressCustomDlg:
  195.     ' defaults to Express
  196.     'if szExpressCustomChoice = "EXPRESS" then
  197.     '    SetSymbolValue "RadioDefault", "1"
  198.     'else
  199.     '    SetSymbolValue "RadioDefault", "1"
  200.     'end if
  201.  
  202. ECDlgLoop:
  203.     szButton = UIStartDlg(CUIDLL_FILENAME, IDD_SPEED, "FRadioDlgProc", IDD_WHIZZHELP, PROC_HELP)
  204.  
  205.     select case szButton
  206.     case "REACTIVATE"
  207.         goto ECDlgLoop
  208.     case "BACK"
  209.         UIPop 1
  210.         goto WelcomeDl